* lisp/progmodes/prolog.el: Fix nested electric if-then-else

* lisp/progmodes/prolog.el (prolog-find-unmatched-paren): Use innermost
rather than outermost paren (bug#21526).

diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 24ac8d75960369375cc2c7f084b38542a85a827a..8c02e5402a2a34e6be2ef9c4f8ee6ccbb6a077a5 100644 (file)
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -2081,7 +2081,7 @@ Argument BOUND is a buffer position limiting searching."
 (defun prolog-find-unmatched-paren ()
   "Return the column of the last unmatched left parenthesis."
   (save-excursion
-    (goto-char (or (car (nth 9 (syntax-ppss))) (point-min)))
+    (goto-char (or (nth 1 (syntax-ppss)) (point-min)))
     (current-column)))